Excel tablolar² ve de≡erler

Soru: Bir Excel tablosunda MAX() fonksiyonunu kullanarak bir alan iτerisinde en bⁿyⁿk de≡ere ula■mak oldukτa kolay. Ama benim yapmak istedi≡im sadece bu say²y² belirlemek de≡il. Bu say²y² al²p binlerce say² iτeren ba■ka bir hesap tablosuna eklemek istiyorum. Bir alan iτerisindeki en bⁿyⁿk de≡erli hⁿcrenin adresini veren bir formⁿl haz²rlad²m ama bu bⁿyⁿk de≡er o alanda birden fazla kere geτerse bu formⁿl i■e yaram²yor. San²r²m en bⁿyⁿk de≡ere rastlad²≡²nda o hⁿcreyi aktif yapan bir formⁿle ihtiyac²m var. Ne yapmal²y²m?

Yan²t: A■a≡²da listelenmi■ olan makroyu bir deneyebilirsiniz. Makromuz tek bir fare t²klamas² ile bir tablonun en bⁿyⁿk de≡erini veya bu de≡erler birden fazla ise aralar²ndan birini buluyor. Makro aktif hⁿcrenin yak²nlar²ndan yola τ²k²yor ve aktif hⁿcreden bⁿyⁿk bir de≡er iτeren hⁿcreye rastlad²≡²nda bu hⁿcreyi aktif hⁿcre yap²yor. Makroyu olu■turmak iτin Insert * Makro * Module komutlar²n² τal²■t²r²n ve a■a≡²da g÷rⁿlemn metni girin. Sat²r aτ²klamalar²n² girmenize gerek yoktur. Makroyu τal²■t²rmak iτin, say²lar iτeren bir tablonun iτerisinde bir yere t²klay²n, Tools menⁿsⁿnden Macro komutunu τal²■t²r²n ve ekrana gelecek olan listede ilgili makro (burada BuyukBul) ismi ⁿzerine τift t²klay²n. E≡er makroyu kullan²■l² buluyorsan²z, araτ τubu≡una bir dⁿ≡me olarak atayabilir ve gerekti≡inde kolayca eri■ebilirsiniz.

-------------------------------------------------------------------------------------------------------------------------------------------
'Bir tablodaki en bⁿyⁿk de≡eri belirlemek
'
Dim FindArea As Object
Sub FindBig()
'Aranacak alan² belirlemek
Set FindArea = Selection.CurrentRegion
'Bu alandaki en bⁿyⁿk de≡eri bulmak.
FindArea.Find(What:=Application.Max(FindArea), After:=ActiveCell).Active
End Sub
-------------------------------------------------------------------------------------------------------------------------------------------

PCWORLD Tⁿrkiye Haziran Say²s²ndan al²nm²■t²r.